(add-to-load-path (dirname (dirname (current-filename))))
(use-modules (basket)
             (srfi srfi-1))

(define (stripes n)
  (map
    (lambda (x)
      `(set (color ,(hsv->rgb `(,x 1 1)))
            (fill ,(rect->poly
                     (make-rect (make-vec x 0)
                                (make-vec (+ x (/ n)) 1))))))
    (iota n 0 (/ n))))

(render-cairo-png (stripes 32) 1024 (cadr (program-arguments)))
